Option Explicit
Sub B_Sample038()
    Dim myWb As Workbook
    Set myWb = Workbooks(1)		'Nï
    MsgBox myWb.IsAddin
    Set myWb = Nothing			'
End Sub
